www.gusucode.com > 红色大方的企业网站源码 1 > 红色大方的企业网站源码 1.0/qiye_red/index.asp
<!--#include file="Inc/SysProduct.asp" -->
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<!--#include file="head.asp" -->
<table cellspacing="0" cellpadding="0" width="1000" align="center" border="0">
<tbody>
<tr valign="top">
<td width="251"><table cellspacing="0" cellpadding="0" width="251" border="0">
<tbody>
<tr>
<td><img height="32" src="imgbsy/gg21.jpg" width="251" /></td>
</tr>
<tr>
<td valign="top" width="251" background="imgbsy/gg11.jpg" height="90"><div align="center">
<table width="245" border="0">
<tbody>
<tr>
<td width="10"> </td>
<td width="225"><marquee onMouseOver="this.stop()"
style="FONT-SIZE: 9pt; COLOR: #000000" onMouseOut="this.start()"
scrollamount="1" scrolldelay="50" direction="up" width="210"
height="80">
<table bordercolor="#ffffff" cellspacing="0" cellpadding="0"
width="210" align="center" border="0">
<tbody>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 1 * from Affiche order by id desc"
rs_news.open sqltext4,conn,1,1
%>
<%i=0
do while not rs_news.eof%>
<tr>
<td valign="top">
<span class="px12">
本站公告：
<a href='#' onclick="javascript:window.open('Affiche.asp?ID=<%=rs_news("id")%>', 'newwindow', 'height=450, width=400, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no')" title='<%=cutstr(rs_news("title"),15)%>'><font color='#FF0000'><%=cutstr(rs_news("title"),15)%></font></a>
</td>
</tr>
<%rs_news.movenext
i=i+1
if i=6 then exit do
loop
rs_news.close %>
</tbody>
</table>
</marquee></td>
</tr>
</tbody>
</table>
</div></td>
</tr>
<tr>
<td><img height="20" src="imgbsy/gg4.jpg" width="251" /></td>
</tr>
<tr>
<td><img height="30" src="imgbsy/pro.gif" width="251" /></td>
</tr>
<tr>
<td><img height="12" src="imgbsy/gg5.jpg" width="251" /></td>
</tr>
<tr>
<td valign="top" width="251" background="imgbsy/ra2.jpg" height="191">
<table width="245" border="0">
<%
dim ii
set rsbigi = server.CreateObject ("adodb.recordset")
sqli="select top 5 * from BigClass order by BIGCLASSid desc"
rsbigi.open sqli,conn,1,1
if rsbigi.eof and rsbigi.bof then
Response.Write "<tr><td colspan=2>栏目正在建设中……</td></tr>"
else
ii=1
do while not rsbigi.eof
%>
<tr>
<td width="49"><div align="right"><img height="4" src="imgbsy/d1.gif" width="4" /></div></td>
<td class="px12-5" width="186"><a href='Product.asp?BigClassName=<%=rsbigi("BigClassName")%>' class="px12-5" ><%=rsbigi("BigClassName")%></a></td>
</tr>
<tr>
<td colspan="2" align="right">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#EBEBEB"></td>
</tr>
</table>
</td>
</tr>
<%
rsbigi.movenext
ii=ii+1
loop
rsbigi.close
set rsbigi=nothing
end if
%>
<tr>
<td width="49"><div align="right"><img height="4" src="imgbsy/d1.gif" width="4" /></div></td>
<td class="px12-5" width="186"><a href="Product.asp" class="px12-5">查看更多产品 >></a> </td>
</tr>
<tr>
<td colspan="2" align="right"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#EBEBEB"></td>
</tr>
</table>
</td>
</tr>
</TABLE>
</td>
</tr>
<tr>
<td><img height="11" src="imgbsy/bg03.jpg" width="251" /></td>
</tr>
<tr>
<td><img height="34" src="imgbsy/con2.gif" width="251" /></td>
</tr>
<tr>
<td width="251" height="230" valign="top" background="imgbsy/con5.jpg">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="8"></td>
</tr>
</table>
<!--#include file="qq.asp" -->
</td>
</tr>
</tbody>
</table></td>
<td width="35" background="imgbsy/ra1.jpg" height="650"> </td>
<td width="704"><table cellspacing="0" cellpadding="0" width="704" border="0">
<tbody>
<tr>
<td colspan="2"><img src="imgbsy/ab1.jpg" width="704" height="32" border="0" usemap="#Map" /></td>
</tr>
<tr>
<td valign="top" background="imgbsy/ab2.jpg" colspan="2" height="164"><table width="670" align="center" border="0">
<tbody>
<tr>
<td width="164"> </td>
<td class="px12" width="496" style="padding-top:8px;">
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql="select Content from Aboutus where Title='企业简介'"
rs.open sql,conn,1,3%>
<%=cutstr(rs("content"),250)%>
<%rs.close
rs=nothing%>
<a href="Aboutus.asp?Title=企业简介">[详细]</a>
</td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td colspan="2"><img src="imgbsy/pro1.jpg" width="704" height="32" border="0" usemap="#Map2" /></td>
</tr>
<tr>
<td valign="top" width="704" background="imgbsy/bg02.jpg" colspan="2" height="156"><table width="675" align="center" border="0" style="margin-top:8px;">
<tbody>
<tr>
<td valign="top">
<style type="text/css">
<!--
#demo {
MARGIN: auto; OVERFLOW: hidden; WIDTH: 660px; TEXT-ALIGN: center
}
-->
</style>
<DIV id=demo>
<TABLE height=110 cellSpacing=0 cellPadding=0 align=left border=0
cellspace="0">
<TBODY>
<TR>
<TD id=demo1 vAlign=top><!--滚动区的高度和宽度-->
<TABLE width=170 height="91"
border=0 cellPadding=0 cellSpacing=0 cellspace="0">
<TBODY>
<TR>
<TD id=demo1 vAlign=top><TABLE cellSpacing=0 cellPadding=0 width="600"
align=center border=0>
<TBODY>
<TR vAlign=top>
<TD width="100" align=middle></TD>
<TD align=middle></TD>
<TD width="200" align=middle><span id="tb_A101">
<!--------------------显示最新产品的子程序开始--------------------->
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top 8 * from Product where Passed=True order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
%>
<tr align="center">
<%
If rs_Product.eof and rs_Product.bof then
response.write "<td><p align='center'><font color='#ff0000'>还没任何产品</font></p></td>"
else
Do While Not rs_Product.EOF%>
<td><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#E9E9E9">
<tr>
<td bgcolor="#FFFFFF"><table width="130" border="0" cellpadding="0" cellspacing="0" bgcolor="#E9E9E9">
<tr>
<td align="center" valign="middle" bgcolor="#FFFFFF">
<a href="ProductShow.asp?ID=<%=rs_Product("ID")%>"><img src="<%=rs_Product("DefaultPicUrl")%>" width="140" height="100" border=0 /></a></td>
</tr>
</table></td>
</tr>
</table></td>
<td valign="bottom"><img src="Img/yyri2.gif" width="7" height="100" /></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td height="20" align="center" class=px12><a href="ProductShow.asp?ID=<%=rs_Product("ID")%>" class="px12-5"><%=rs_Product("Title")%></a></td>
</tr>
</table></td>
</tr>
</table></td>
<%
rs_Product.MoveNext
Loop
end if
rs_Product.close
%>
</tr>
</table><!--------------------显示最新产品的子程序结束--------------------->
</span></TD>
<TD align=middle></TD>
<TD width="300" align=middle></TD>
<TD width="300" align=middle></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD id=demo2 vAlign=top width=2></TD>
</TR>
</TBODY>
</TABLE>
<!--最新图文代码结束--></TD>
<TD id=demo2 vAlign=top></TD>
</TR>
</TBODY>
</TABLE>
</DIV>
<script language="JavaScript" type="text/javascript">
// JavaScript Document
var speed=20;
document.getElementById("demo2").innerHTML=document.getElementById("demo1").innerHTML
function Marquee(){
if(document.getElementById("demo2").offsetWidth-document.getElementById("demo").scrollLeft<=0)
document.getElementById("demo").scrollLeft-=document.getElementById("demo1").offsetWidth
else{
document.getElementById("demo").scrollLeft++;
}
}
var MyMar=setInterval(Marquee,speed)
document.getElementById("demo").onmouseover=function() {clearInterval(MyMar)}
document.getElementById("demo").onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>
</td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td colspan="2"><img height="8" src="imgbsy/bg04.jpg" width="704" /></td>
</tr>
<tr>
<td><img height="28" src="imgbsy/news1.gif" width="353" /></td>
<td><img height="28" src="imgbsy/news2.gif" width="351" /></td>
</tr>
<tr>
<td><img height="14" src="imgbsy/bg05.jpg" width="353" /></td>
<td><img height="14" src="imgbsy/bg06.jpg" width="351" /></td>
</tr>
<tr valign="top">
<td background="imgbsy/bg07.jpg" colspan="2" height="199">
<table width="704" height="100" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="11"></td>
<td width="330"><table width="330" border="0">
<tbody>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 6 * from news where BigClassName='企业新闻' order by id desc"
rs_news.open sqltext4,conn,1,1
%>
<%i=0
do while not rs_news.eof%>
<tr>
<td width="27"><div align="right"><img height="10" src="imgbsy/dot4.gif" width="5" /></div></td>
<td class="px12" width="306"> <a href="shownews.asp?id=<%=rs_news("id")%>" target="_blank" class="px12" ><%=cutstr(rs_news("title"),20)%></a></td>
</tr>
<%rs_news.movenext
i=i+1
if i=6 then exit do
loop
rs_news.close %>
</tbody>
</table></td>
<td width="25"></td>
<td width="330"><table width="330" border="0">
<tbody>
<%
set rs_news2=server.createobject("adodb.recordset")
sqltext2="select top 6 * from news where BigClassName='行业新闻' order by id desc"
rs_news2.open sqltext2,conn,1,1
%>
<%i2=0
do while not rs_news2.eof%>
<tr>
<td width="27"><div align="right"><img height="10" src="imgbsy/dot4.gif" width="5" /></div></td>
<td class="px12" width="306"> <a href="shownews.asp?id=<%=rs_news2("id")%>" target="_blank" class="px12" ><%=cutstr(rs_news2("title"),20)%></a></td>
</tr>
<%rs_news2.movenext
i2=i2+1
if i2=6 then exit do
loop
rs_news2.close %>
</tbody>
</table></td>
<td width="8"></td>
</tr>
</table></td>
</tr>
<tr>
<td><img height="17" src="imgbsy/bg08.jpg" width="353"/></td>
<td><img height="17" src="imgbsy/bg09.jpg" width="351"/></td>
</tr>
</tbody>
</table></td>
<td background="imgbsy/bga1.jpg"> </td>
</tr>
</tbody>
</table>
<!--#include file="foot.asp" -->